1 REM (null)
2 POKE53280,14:POKE53281,6
5 LP=0
10 PRINTCHR$(142):PRINTCHR$(8):PRINTCHR$(154):PRINTCHR$(147)
20 POKE53281,6:POKE53280,14
30 PRINT"SPELLING LEARNING "
40 PRINT"GAME!!!!"
50 POKE54296,15
60 POKE54277,9
70 POKE54276,65
75 POKE54275,0:POKE54274,255
80 FORS=1TOC:NEXT
85 POKE54273,0:POKE54272,0
87 POKE54276,0
90 IFC=751THEN150
100 READA,B,C
105 POKE54273,A:POKE54272,B
110 GOTO60
120 DATA 20,100,375,20,100,375,20,100,250,22,227,125,25,177,375,25,177,250
125 DATA 22,227,125,25,177,250,27,56,125,30,141,750
130 DATA 40,200,125,40,200,125,40,200,125,30,141,125,30,141,125,30,141,125
135 DATA 25,177,125,25,177,125,25,177,125,20,100,125,20,100,125,20,100,125
140 DATA 30,141,250,27,56,125,25,177,250,22,227,125
145 DATA 20,100,751
150 POKE54296,0:POKE53281,5:POKE53280,13:PRINTCHR$(153)
155 PRINTCHR$(147)
160 PRINT"HELLO,THERE."
165 PRINT"WELCOME TO THE WORLD OF SPELLING!"
170 PRINT"(TYPE IN YOUR NAME,THEN HIT RETURN[146])"
175 INPUT"[145][145]WHAT'S YOUR NAME";A$
180 PRINT""A$",DO YOU WANT INSTRUCTIONS?"
185 PRINT"PUSH EITHER Y[146] FOR YES,OR N[146] FOR NO."
190 GETS$:IFS$<>"Y"ANDS$<>"N"THEN190
195 IFS$="N"THEN305
200 PRINT"[147]OKAY,"A$",IT IS NICE TO MEET"
205 PRINT"YOU."
210 PRINT"I AM GOING TO FLASH A WORD ON THE"
215 PRINT"SCREEN.THEN,I WILL ERASE THE WORD,AND"
220 PRINT"ASK YOU TO SPELL IT.SO,YOU WILL TYPE IN  THE WORD,THEN HIT RETURN[146]"
225 PRINT"I WILL KEEP TRACK OF HOW MANY WORDS"
230 PRINT"YOU SPELL CORRECTLY."
235 PRINT"IF YOU SPELL THE WORD CORRECTLY,I WILL"
240 PRINT"TELL YOU YOU'RE RIGHT BY PUTTING THE"
245 PRINT"WORD RIGHT[146] ON THE SCREEN.I WILL HOLD"
250 PRINT"IT FOR A BIT,THEN GIVE YOU ANOTHER"
255 PRINT"WORD."
260 PRINT"IF YOU MISSPELL THE WORD,I WILL SHOW"
265 PRINT"YOU THE CORRECT SPELLING OF THE WORD,"
270 PRINT"HOLD IT,THEN GIVE YOU ANOTHER WORD."
275 PRINT"PUSH F1[146] TO CONTINUE.(ONE OF THE GREY      KEYS)
280 [161]D$:[139]D$[179][177][199](133)[167]280
285 [153]"LOADTHERE WILL BE TEN WORDS IN ALL."
290 [153]"THE WORDS WILL BE PICKED AT RANDOM."
295 [153]"IF YOU GET 9 OR 10 WORDS RIGHT,THERE "
300 [153]"WILL BE A GAME FOR YOU TO PLAY!"
305 [153]"WHEN YOU WANT TO START,PUSH F1WAIT"
310 [161]W$:[139]W$[179][177][199](133)[167]310
311 [133]"ENTER SPEED(1-10)";SP
312 K[178]SP[172]100
315 [134]C$(150)
320 [129]Q[178]1[164]130:[135]C$(Q):[130]Q
325 [129]E[178]1[164]10
330 Y[178][181](1[170][187](1)[172]260)
332 [139]Y[177]130[167]Y[178]Y[171]130
335 [153]"LOAD";C$(Y)
340 [129]R[178]1[164]K:[130]R
345 [133]"LOADNOW,SPELL THE WORD:";Z$
350 [139]Z$[178]C$(Y)[167]360
355 [153]"SORRY.THE CORRECT SPELLING IS:";C$(Y)
356 [129]F[178]1[164]1000:[130]F
357 [137]365
360 [141]500
365 [130]E
370 [153]"LOAD"A$",YOU GOT"X"OUT OF 10 WORDS RIGHT."
375 [139]X[177][178]9[167]400
380 [153]"SORRY,BUT THERE IS NO GAME THIS TIME!"
385 [153]"DO YOU WANT TO PLAY AGAIN?(Y/N)"
390 [161]O$:[139]O$[179][177]"Y"[175]O$[179][177]"N"[167]390
395 [139]O$[178][199](89)[167][138]
396 [153]"LOADRUN"
397 [153]"":[128]
400 [137]550
500 X[178]X[170]1
505 [153]"RIGHT!!"
510 [129]F[178]1[164]700:[130]F
515 [142]
550 [153]"LOADCONGRATULATIONS!,"A$",YOU MADE IT TO  THE   GAME!!"
555 [153]"IN THIS GAME,I WILL DISPLAY A BOX"
560 [153]"WHICH WILL CONSIST OF 4 SMALLER BOXES."
565 [153]"ONE BY ONE,I WILL COLOUR IN ONE OF THE"
570 [153]"BOXES.A TOTAL OF 4 WILL BE COLOURED,BUT"
575 [153]"ONE AT A TIME.WHEN I FINISH COLOURING"
580 [153]"THEM,YOU WILL TELL ME WHICH ONES I"
585 [153]"COLOURED BY PRESSING THE FUNCTION KEYS."
590 [153]"F1WAIT IS FOR THE TOP BOX,F3WAIT IS FOR"
595 [153]"THE SECOND BOX,F5WAIT IS FOR THE THIRD"
600 [153]"BOX,AND F7WAIT IS FOR THE BOTTOM BOX."
605 [153]"YOU WILL UNDERSTAND IT BETTER AS WE GO"
610 [153]"ALONG."
615 [153]"PRESS F1WAIT TO BEGIN."
620 [161]R$:[139]R$[179][177][199](133)[167]620
630 [153][199](147):[153][199](8):[153][199](150)
635 [151]53281,2:[151]53280,10
640 [153]"     WAIT"
645 [153]" WAIT    WAIT  F1 "
650 [153]"     WAIT
655 PRINT" [146]    [146]  F3 "
660 PRINT"     [146]"
665 PRINT" [146]    [146]  F5 "
670 PRINT"     [146]
675 [153]" WAIT    WAIT  F7 "
680 [153]"     WAIT
682 PRINT"ONE MOMENT,PLEASE."
685 FORH=1TO4
690 L=INT(1+RND(1)*4)
700 J(H)=L
705 NEXTH
710 FORU=1TO4
715 IFJ(U)=1THENN$(U)=CHR$(133)
720 IFJ(U)=2THENN$(U)=CHR$(134)
725 IFJ(U)=3THENN$(U)=CHR$(135)
730 IFJ(U)=4THENN$(U)=CHR$(136)
735 NEXTU
740 FORM=1TO500:NEXTM
745 PRINT"[145]                  "
747 PRINTCHR$(5)
750 FORW=1TO4
755 IFN$(W)=CHR$(133)THENPRINT"   [146]"
760 IFN$(W)=CHR$(134)THENPRINT"   [146]"
765 IFN$(W)=CHR$(135)THENPRINT"   [146]"
770 IFN$(W)=CHR$(136)THENPRINT"   [146]"
772 PRINTCHR$(10)
775 FORT=1TO250:NEXTT
780 PRINT"   "
785 PRINT"   "
790 PRINT"   "
792 PRINT"   "
793 FORSE=1TO200:NEXTSE
794 NEXTW
796 GOTO900
800 DATA MATH,FUN,SPELLING,BOOK,PLUG,TAPE,DIAL,PHONE,SONGS,CODE,COLOUR,STOP
805 DATA PLAY,RECORD,DATA,TERMS,BOX,BUS,JOYSTICK,CHAIR,TABLE,DRAW,PICTURE
810 DATA CRAYON,PEN,PENCIL,PILLOW,BED,PAINT,PASTEL,LEVEL,STAIRS,CARPET
815 DATA FLOOR,SPORTS,BASEBALL,HOCKEY,FOOTBALL,SUN,MOON,TENNIS,HELLO
820 DATA GOOD,BAD,FUNNY,CURIOUS,GREAT,TERRIBLE,WIRES,HOUSE,HOME,PATTERN
825 DATA HORSE,GALLOP,TROT,COUCH,MOUSE,MOUTH,POUCH,POCKET,JEANS,PANTS
830 DATA CLOTHES,SUIT,TIE,JACKET,TIRE,WHEEL,CAR,ENGINE,SEAT,BELT,OPEN,CLOSE
835 DATA HUT,MOVE,SPACE,PLANT,VIOLET,EARTH,MACHINE,FILE,UNDER,TOP,SIDE,BEHIND
840 DATA FRONT,BACK,BLUE,GREEN,RED,BLACK,BEIGE,WHITE,YELLOW,PURPLE,KITE
845 DATA PADDLE,DOG,PET,FISH,CAT,BIRD,PARROT,PEANUT,TODAY,BYE,BY,BUY,STORE
850 DATA SHOP,CENTRE,PLAZA,MONEY,CHOCOLATE,CANDY,FREEZE,FOOD,MERRY,MARRY
855 DATA WHO,WHAT,WHEN,WHY,WHERE,HOW,MAGIC,TRICKS,TABLE,CARDS
900 FORRE=1TO4
905 GETQ$
906 IFQ$<>CHR$(133)ANDQ$<>CHR$(134)ANDQ$<>CHR$(135)ANDQ$<>CHR$(136)THEN905
910 IFQ$=N$(RE)THENLP=LP+1
915 NEXTRE
917 PRINT"THE ORDER WAS:"
918 FORLO=1TO4
919 IFN$(LO)=CHR$(133)THENPRINT"";"F1"
920 IFN$(LO)=CHR$(134)THENPRINT"";"F3"
921 IFN$(LO)=CHR$(135)THENPRINT"";"F5"
922 IFN$(LO)=CHR$(136)THENPRINT"";"F7"
923 NEXTLO
924 FORYOU=1TO2500:NEXTYOU
926 POKE53281,6:POKE53280,14:PRINTCHR$(154)
930 PRINT"[147]WELL,"A$",AS YOU SAW,YOU GOT "
935 PRINTLP"OUT OF A POSSIBLE 4 POINTS IN THIS    GAME."
937 IFLP=4THENY$="AMAZING!"
938 IFLP=3THENY$="PRETTY GOOD!"
940 IFLP=2THENY$="AVERAGE!"
943 IFLP=1THENY$="WELL,NOT GREAT!"
944 PRINTA$",I'D SAY YOU DID ";Y$
945 PRINT"THANK YOU FOR PLAYING!"
950 PRINT"PLAY AGAIN?"
955 GETR$:IFR$<>"Y"ANDR$<>"N"THEN955
960 IFR$="Y"THENRUN
965 PRINT"BYE,BYE!!"
970 PRINT"[147]RUN"
975 PRINT"":END